home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / akcl1615.lha / misc / rusage.lsp < prev    next >
Lisp/Scheme  |  1990-01-08  |  1KB  |  45 lines
  1. ;; sun release 4  getrusage interface.  (constructed using structs.lsp)
  2. (in-package 'si)
  3. (DEFSTRUCT (|rusage| (:static t))
  4.     (|ru_utime.tv_sec| 0 :TYPE FIXNUM)
  5.     (|ru_utime.tv_usec| 0 :TYPE FIXNUM)
  6.     (|ru_stime.tv_sec| 0 :TYPE FIXNUM)
  7.     (|ru_stime.tv_usec| 0 :TYPE FIXNUM)
  8.     (|ru_maxrss| 0 :TYPE FIXNUM)
  9.     (|ru_ixrss| 0 :TYPE FIXNUM)
  10.     (|ru_idrss| 0 :TYPE FIXNUM)
  11.     (|ru_isrss| 0 :TYPE FIXNUM)
  12.     (|ru_minflt| 0 :TYPE FIXNUM)
  13.     (|ru_majflt| 0 :TYPE FIXNUM)
  14.     (|ru_nswap| 0 :TYPE FIXNUM)
  15.     (|ru_inblock| 0 :TYPE FIXNUM)
  16.     (|ru_oublock| 0 :TYPE FIXNUM)
  17.     (|ru_msgsnd| 0 :TYPE FIXNUM)
  18.     (|ru_msgrcv| 0 :TYPE FIXNUM)
  19.     (|ru_nsignals| 0 :TYPE FIXNUM)
  20.     (|ru_nvcsw| 0 :TYPE FIXNUM)
  21.     (|ru_nivcsw| 0 :TYPE FIXNUM))
  22. (clines "static mygetrusage(x,y) int x; object y;{return getrusage(x,y->str.str_self);}")
  23. (defentry GETRUSAGE1 (int object) (int "mygetrusage"))
  24.  
  25. (defun get-usage (self usage)
  26.   (or (typep usage '|rusage|) (setq usage (make-|rusage|)))
  27.   (getrusage1 (if self 0 -1) usage)
  28.   usage)
  29.           
  30. (defmacro with-change-displayed (form)
  31.   `(let ((.beg (get-usage t nil)))
  32.     (prog1 ,form
  33.     (let ((.end (get-usage t nil)))
  34.       (let ((sd (s-data-slot-descriptions (get '|rusage| 's-data))))
  35.     (sloop for i from 0
  36.            for v in(s-data-slot-descriptions (get '|rusage| 's-data))
  37.            for dif =
  38.            (-   (structure-ref1 .end i )  (structure-ref1 .beg i ) )
  39.            when (not (zerop dif))
  40.            do(print (list (car v) dif))))))))
  41.                
  42.       
  43.     
  44.  
  45.